<%
	
	
	
	Dim s			' Status indicator
	Dim execPage	' Page to Execute
	
	Dim htmlViewAll	' View All
	Dim htmlAddNew	' Add New
	Dim htmlClients	' Client list
	Dim cPage		' Current page
	
	
	s = Request.QueryString("s") ' Status
	cPage = Request.ServerVariables("PATH_INFO")
	
	htmlViewAll	= renderActionMenu(1, "View All", cPage)
	htmlAddNew	= renderActionMenu(1, "Add New", cPage & "?s=a")
	htmlClients	= renderActionMenu(1, "Client List", cPage & "?s=c")
		
	
	Select Case s
		Case "s"
			execPage	= "show_client_dropbox.asp"
			htmlSearch	= renderActionMenu_on(1, "Search")
		Case "d"
			execPage	= "client_dropbox_edit.asp"
		Case "a"
			execPage	= "client_dropbox_add.asp"
			htmlAddNew	= renderActionMenu_on(1, "Add New")
		Case "e", "u" ' Edit, or Update
			execPage	= "client_dropbox_edit.asp"		
		Case Else
			execPage	= "show_client_dropbox.asp"
			htmlViewAll	= renderActionMenu_on(1, "View All")
	End Select
	
	' Continue Case Else ...
	If Request.Cookies("irl_security")=1 Then
		If s = "c" Then 	' Client list			
			execPage	= "client_list.asp"
			htmlViewAll	= renderActionMenu(1, "View All", cPage)
			htmlClients	= renderActionMenu_on(1, "Client List")
		ElseIf s = "b" Then ' From client list
			execPage	= "client_list_dropbox.asp"
			htmlViewAll	= renderActionMenu(1, "View All", cPage)
		End if
	End if
	
	
	' HTML Rendering Function
	' Start .....
	'
	' Rendering found in actionMenu.asp 
	'
	' End .....
	
	
%>